(flyspell-post-command-hook): Bind deactivate-mark to prevent deactivation.

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index f65ffd0ba5c20f4181b6ab060ca175f34db6c6e2..0f0394ad4eae3b769eb3f48900fa9d64841a0699 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -895,7 +895,9 @@ Mostly we check word delimiters."
 (defun flyspell-post-command-hook ()
   "The `post-command-hook' used by flyspell to check a word in-the-fly."
   (interactive)
-  (let ((command this-command))
+  (let ((command this-command)
+       ;; Prevent anything we do from affecting the mark.
+       deactivate-mark)
     (if (flyspell-check-pre-word-p)
        (save-excursion
          '(flyspell-debug-signal-pre-word-checked)